home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / r-z / sbase4pro / ideas / sbpro_to_splan.sbp < prev    next >
Text File  |  1995-07-10  |  2KB  |  82 lines
  1. SBP
  2.  ÿ½ **********************************************************************
  3.  ÿ½ Demonstration of Superbase controlling Superplan through ARexx
  4.  ÿ½ Author: Tim Arnot 13/10/88
  5.  ÿ½ Superplan should already be running in the system
  6.  ÿ½ ARexx, however is optional in this example
  7.  ÿ½ **********************************************************************
  8.  
  9.  ÿ½ this is the command sequence to send to Superplan 
  10.  
  11.  ÿ½  >POF                /* Turn prompt display off */
  12.  ÿ½  /zy                 /* Clear the worksheet */
  13.  ÿ½  ,bar>ENT            /* Put graph command in cell A1 */
  14.  ÿ½  =C1>ENT             /* Move to C1 */
  15.  ÿ½  +rand*10>ENT        /* Put data in C1 */
  16.  ÿ½  /rrC1,D1:G1>ENT     /* Replicate top row */
  17.  ÿ½  >HOM                /* Move to A1 */
  18.  ÿ½  /rrA1:G1,A2:A6>ENT  /* Replicate top row */
  19.  
  20.  ÿ½  /vs>ESC             /* Open graph window */
  21.  ÿ½  >GPX0>GPY0          /* Move graph window to 0,0 */
  22.  ÿ½  >GPW640>GPH260      /* Size graph as big as possible */
  23.  ÿ½  /vs>ESC             /* Redraw the graph */
  24.  ÿ½  >IFFmygraph.iff\    /* Save the graph in IFF format  */
  25. 
  26.  
  27.  ÿŠ">POF","/zy",",bar>ENT","=C1>ENT","+rand*10>ENT"
  28.  ÿŠ"/rrC1,D1:G1>ENT",">HOM","/rrA1:G1,A2:A6>ENT","/vs>ESC"
  29.  ÿŠ">GPX0>GPY0",">GPW640>GPH260","/vs>ESC",">IFFmygraph.iff\"
  30.  
  31.  ÿ›i%ÿ1ÿq13
  32. ÿ¼cmd$
  33. ÿƒ"SpRexx"ÿ–cmd$
  34. ÿ¡ÿ&ÿ0ÿÿ&ÿÿ1ÿpÿwehandle
  35.  ÿ±i%
  36.  
  37.  ÿ½ Now we will read the spreadsheet back into Superbase
  38.  
  39.  ÿ×array%(6,5),c$(5)
  40.  ÿŠ"C","D","E","F","G"
  41.  ÿ›i%ÿ1ÿq5:ÿ¼c$(i%):ÿ±
  42.  ÿ›i%ÿ1ÿq6
  43. ÿ›j%ÿ1ÿq5
  44. cell$ÿc$(j%)ÿÿH(ÿ(i%,"9."))
  45. ÿƒ"SpRexx"ÿÃcell$ÿqresult$
  46. ÿ¡ÿ&ÿ0ÿÿ&ÿÿ1ÿpÿwehandle
  47. array%(i%,j%)ÿÿ0(result$)
  48. ÿ±j%
  49.  ÿ±i%
  50.  
  51.  ÿ½ Display the results 
  52.  
  53.  ÿ‡
  54.  ÿ›i%ÿ1ÿq6
  55. ÿ›j%ÿ1ÿq5
  56. ÿ{&1.6array%(i%,j%);
  57. ÿ±j%
  58. ÿ{
  59.  ÿ±i%
  60.  ÿÏÿ›10
  61.  ÿÈ"mygraph.iff"
  62.  ÿÏÿ›10
  63.  ÿÈ
  64.  
  65.  ÿ½ Clear Superplan and finish
  66.  
  67.  ÿƒ"SpRexx"ÿ–"/zy>ENT>PON"
  68.  ÿ¡ÿ&ÿ0ÿÿ&ÿÿ1ÿpÿwehandle
  69.  ÿƒ""ÿ†
  70.  ÿ’
  71.  
  72. ehandle: 
  73.  ÿ¡ÿ&ÿÿ1ÿp
  74. ÿ‡
  75. ÿÂ"Superplan is not responding","Please run it first",0,a%
  76. ÿ’
  77.  ÿ’ÿ¡
  78.  e$ÿ"Number"ÿÿ(ÿ&)
  79.  ÿÂ"Superplan returned an error:",e$,0,a%
  80.  ÿ’
  81.  
  82.